A base model is created for comparison. ANOVA was used to compare the models.
base_model.cs <- lm(CS_Adv ~ Trained_Leader, data = BSA.Advancement.Correlation)
anova(base_model.cs, best_model)
## Analysis of Variance Table
##
## Model 1: CS_Adv ~ Trained_Leader
## Model 2: CS_Adv ~ Trained_Leader + Youth_Retention + Rel_Units
## Res.Df RSS Df Sum of Sq F Pr(>F)
## 1 20 0.62124
## 2 18 0.41734 2 0.20389 4.3969 0.02787 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
The variance is significant at the 99% level